home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / k scope (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  61 lines
  1. 100 REM    KSCOPE
  2. 120 CLR:RESTORE
  3. 160 POKE53280,0:POKE53281,0
  4. 180 PRINTCHR$(147);
  5. 200 DIMCH(25,4),CL(16)
  6. 220 FORI=1TO24
  7. 230 FORJ=1TO4:READCH(I,J):NEXTJ
  8. 240 NEXTI
  9. 260 FORJ=1TO16:READCL(J):NEXTJ
  10. 280 FORJ=1TO4:READX(J):NEXTJ
  11. 300 FORJ=1TO4:READY(J):NEXTJ
  12. 340 HX=INT(RND(1)*20)
  13. 350 VY=INT(RND(1)*12)
  14. 360 CI=INT(RND(1)*24)+1
  15. 370 CP=INT(RND(1)*16)+1
  16. 410 PRINTCHR$(146)CHR$(CL(CP));
  17. 450 FORI=1TO4:XX=X(I):YY=Y(I)
  18. 460 IFXX=20THENXX=XX+HX
  19. 470 IFXX=19THENXX=XX-HX
  20. 480 IFYY=12THENYY=YY+VY
  21. 490 IFYY=11THENYY=YY-VY
  22. 500 POKE781,YY:POKE782,XX
  23. 510 POKE783,0:SYS65520
  24. 520 ZC=CH(CI,I)
  25. 530 IFZC<0THENPRINTCHR$(18);
  26. 540 IFZC>0THENPRINTCHR$(146);
  27. 550 ZC=ABS(ZC)
  28. 560 PRINTCHR$(ZC);
  29. 580 NEXT
  30. 600 GOTO340
  31. 660 DATA 32,32,32,32
  32. 670 DATA -32,-32,-32,-32
  33. 680 DATA 32,32,32,32
  34. 690 DATA -32,-32,-32,-32
  35. 700 DATA 32,32,32,32
  36. 710 DATA -32,-32,-32,-32
  37. 720 DATA 161,-161,-161,161
  38. 730 DATA -161,161,161,-161
  39. 740 DATA 162,162,-162,-162
  40. 750 DATA -162,-162,162,162
  41. 760 DATA 169,223,-169,-223
  42. 770 DATA -169,-223,169,223
  43. 780 DATA223,169,-223,-169
  44. 790 DATA -223,-169,223,169
  45. 800 DATA 172,187,190,188
  46. 810 DATA-172,-187,-190,-188
  47. 820 DATA 188,190,187,172
  48. 830 DATA -188,-190,-187,-172
  49. 840 DATA 187,172,188,190
  50. 850 DATA -187,-172,-188,-190
  51. 860 DATA 190,188,172,187
  52. 870 DATA -190,-188,-172,-187
  53. 880 DATA 191,-191,191,-191
  54. 890 DATA -191,191,-191,191
  55. 910 DATA 144,5,28,159
  56. 940 DATA 156,30,31,158
  57. 950 DATA 129,149,150,151
  58. 960 DATA 152,153,154,155
  59. 1000 DATA 20,19,19,20
  60. 1010 DATA 11,11,12,12
  61.